home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9011a.d64 / pascal 1 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  217b  |  13 lines
  1. 10 PRINT"[147]":REM PASCAL'SCHES DREIECK
  2. 20 PRINT"PASCAL'SCHES DREIECK"
  3. 30 PRINT"********************"
  4. 40 DIMK(20):K(10)=1
  5. 50 PRINTTAB(20) 1
  6. 60 FORA=1TO9
  7. 70 FORR=10-ATO10+ASTEP2
  8. 80 K(R)=K(R-1)+K(R+1)
  9. 90 PRINTTAB(20-2*A)K(R);
  10. 100 NEXTR
  11. 110 PRINT:PRINT
  12. 120 NEXTA
  13.